<GEEK> 1/GEEK1.ISO/geekko/dos.dxr/00003_The Loop.ls

Text File | 1997-05-24 | 344 b | 20 lines

on exitFrame
  go(#loop)
end

on fIStEXT
  set f to ["F"]
  repeat with i = 1 to 50
    put getAt(f, i) into char i of field "TextFis"
    updateStage()
    append(f, "F")
  end repeat
  repeat with i = 50 to 100
    put getAt(f, i) into char i of field "TextFis"
    updateStage()
    append(f, "S")
  end repeat
  set f to []
  go(#next)
end